home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / HRM.PRG < prev    next >
Text File  |  1980-01-01  |  2KB  |  83 lines
  1. *
  2. * HRM
  3. * HUMAN RESOURCES MANAGEMENT SYSTEM
  4. * SETUP MENU
  5. * OPERATOR ACTION WILL BE ALPHA CHARACTER
  6. * OUTER DO ALLOWS RETURN TO MENU FROM LOWER LEVEL MENU
  7. SET HEADING OFF
  8. SET SAFETY OFF
  9. SET STATUS OFF
  10. DO WHILE (1=1)
  11. SET TALK OFF
  12. SET BELL OFF
  13. CLEAR ALL
  14. STORE " " TO OPINPUT
  15. *
  16. *===============================START MODS: 1================================*
  17. * SET LEFT AND TOP MARGINS FOR MENU
  18. STORE 20 TO LEFTMARG
  19. STORE  3 TO TOPMARG
  20. *==================================END MODS==================================*
  21. *
  22. *
  23. *===============================START MODS: 2================================*
  24. * SET HIGHEST OPTION LETTER, THEN PROVIDE HEADING AND OPTION LABELS
  25. DO WHILE OPINPUT<"A".OR.OPINPUT>"H"
  26.    CLEAR
  27.    @ TOPMARG,LEFTMARG+3 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  28.    @ TOPMARG+2,LEFTMARG+1 SAY ">> Human Resources Management System <<"
  29.    @ TOPMARG+4,LEFTMARG SAY "A. PERSONNEL File Maintenance"
  30.    @ TOPMARG+5,LEFTMARG SAY "B. EMPLOYMENT HISTORY File Maintenance"
  31.    @ TOPMARG+6,LEFTMARG SAY "C. Print PERSONNEL REPORT"
  32.    @ TOPMARG+7,LEFTMARG SAY "D. Process PAYROLL"
  33.    @ TOPMARG+8,LEFTMARG SAY "E. PERSONNEL File CLEAN UP"
  34.    @ TOPMARG+9,LEFTMARG SAY "F. EXPERIENCE File CLEAN UP"
  35.    @ TOPMARG+10,LEFTMARG SAY "G. CLEAR Year-to-Date Payroll Fields"
  36.    @ TOPMARG+11,LEFTMARG SAY "H. Return to SYSTEM MENU"
  37.    @ TOPMARG+13,LEFTMARG+3 SAY "Press Letter Matching Desired Option ";
  38.      GET OPINPUT
  39. *=================================END MODS===================================*
  40. *
  41.    READ
  42.    STORE UPPER(OPINPUT) TO OPINPUT
  43. ENDDO
  44. *
  45. *==============================START MODS: 3=================================*
  46. * PROVIDE DO FILE NAME FOR EACH CASE REPRESENTING ONE OF THE MENU OPTIONS
  47. DO CASE
  48.    CASE OPINPUT="A"
  49.       DO HRMMNT
  50.    CASE OPINPUT="B"
  51.       DO EXPMNT
  52.    CASE OPINPUT="C"
  53.       DO HRMRPT
  54.    CASE OPINPUT="D"
  55.       DO PAYROLL
  56.    CASE OPINPUT="E"
  57.       DO PREPACK
  58.    CASE OPINPUT="F"
  59.       DO EREPACK
  60.    CASE OPINPUT="G"
  61.       DO CLRPAY
  62.    CASE OPINPUT="H"
  63.       RETURN
  64. *=================================END MODS===================================*
  65. *
  66.    OTHERWISE
  67.       CANCEL
  68. ENDCASE
  69. * REDISPLAY MENU
  70. ENDDO
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.